home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 October / EnigmA AMIGA RUN 22 (1997)(G.R. Edizioni)(IT)[!][issue 1997-10 & 11][EAR-CD VI].iso / progs / demos / arteffect2.demo / rexx / polygon.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-04  |  776b  |  36 lines
  1. /*
  2.  * Polygons
  3.  *
  4.  * ARexx Example for: new, palette, polygon
  5.  * Author: A. Pratsch
  6.  * This script is Public Domain
  7.  */
  8.  
  9. address "ArtEffect"
  10.  
  11. new w 400 h 400 "Polygons"
  12.  
  13. /*do forever*/
  14.     /*
  15.     cr=random(0,255);
  16.     cg=random(0,255);
  17.     cb=random(0,255);
  18.     'palette r 'cr' g 'cr' b 'cb' quiet'
  19.     */
  20.  
  21.     x1=random(1,399)
  22.     y1=random(1,399)
  23.     x2=random(1,399)
  24.     y2=random(1,399)
  25.     x3=random(1,399)
  26.     y3=random(1,399)
  27.     x4=random(1,399)
  28.     y4=random(1,399)
  29.  
  30.     'rectangle pt fill mode gradient strength 80 'x1' 'y1' 'x3' 'y3
  31.     'polygon pt fill mode color strength 50 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  32.     'polygon pt airbrush mode color strength 100 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  33.     'polygon pt cut mode color strength 50 'x1' 'y1' 'x2' 'y2' 'x3' 'y3' 'x4' 'y4
  34.     changebrush sw 10 sh 10
  35. /*end*/
  36.